home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ ComDlg Options 1.xpl < prev    next >
Text File  |  2001-05-14  |  2KB  |  74 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Appearance\System\Open Dialog"
  5. "NAME"="Windows Open Dialog Options"
  6. "VERSION"="1.05"
  7. "LANGUAGE"="VBScript"
  8. "OSVERISON"="000111"
  9. "TEXT 1"="Show "Places Bar" inside dialog"
  10. "TEXT 2"="Show "Back" button inside dialog"
  11. "TEXT 3"="Show recent used files inside dialog"
  12. "DESCRIPTION 1"="If you use a Windows application, it will use the common Windows Open dialog that normally has the following options:"
  13. "DESCRIPTION 2"=""Places Bar": Allows you to jump directly to History, Desktop, My Documents etc."
  14. "DESCRIPTION 3"=""Back Button": This button can be used to browse to the previous accessed folder inside the dialog."
  15. "DESCRIPTION 4"=""Recent Used Files": A drop-down field that lists the recent used file-names."
  16. "DESCRIPTION 5"="Each of these options can be turned off."
  17. "AUTHOR"="Xteq Systems"
  18. "CONTACTURL"="http://www.xteq.com"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"=" "
  21.  
  22.  
  23. 'Declaration of some constants
  24. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\NoPlacesBar"
  25. sV2="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\NoBackButton"
  26. sV3="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Comdlg32\NoFileMRU"
  27.  
  28. 'Note can also be added to HKEY_LOCAL_MACHINE!
  29.  
  30.  
  31. 'Called when the Plugin is started
  32. SUB Plugin_Initialize 
  33.  i=RegReadValue(sV1) 'DW
  34.  If IsEmpty(i) or i=0 then SetUIElement 1,true
  35.  
  36.  i=RegReadValue(sV2) 'DW
  37.  if IsEmpty(i) or i=0 then SetUIElement 2,true
  38.  
  39.  i=RegReadValue(sV3) 'DW
  40.  if IsEmpty(i) or i=0 then SetUIElement 3,true
  41. END SUB
  42.  
  43. 'Called when the Plugin should validate the Data the user has entered
  44. SUB Plugin_CheckData(ElementIndex)
  45. END SUB
  46.  
  47. 'Called when the Plugin should apply the changes
  48. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  49.  Call WriteIt(1,sV1)
  50.  Call WriteIt(2,sV2)
  51.  Call WriteIt(3,sV3)
  52.  
  53.  Call Logoff
  54. END SUB
  55.  
  56. Sub WriteIt(ITM,PATH)
  57.   b=GetUIElement(ITM)
  58.   if b=true then
  59.      s=RegReadValue(PATH)
  60.      if IsEmpty(s)=false then
  61.         Call RegDeleteValue(Path)
  62.      end if
  63.   else
  64.     Call RegWriteValue(PATH,1,2)
  65.   end if
  66. End Sub
  67.  
  68.  
  69.  
  70.  
  71. 'Called when the Plugin is about to be removed from memory
  72. SUB Plugin_Terminate
  73. END SUB
  74.